home *** CD-ROM | disk | FTP | other *** search
- !
- ! Copyright (c) 1994
- ! by CompuServe Incorporated, Columbus, Ohio
- !
- ! The information in this software is subject to change without
- ! notice and should not be construed as a commitment by CompuServe.
- !
- ! DIALPLUS:
- ! Connect to Dialplus
- ! Success: returns %Success
- ! Failure: saves error msg in %FailureMsg and returns %Failure
- !
- !+V
- ! "3.5.2"
- !-V
-
- show "Connecting to GNS Dialplus";
- Tries = 5;
- FailStr = "GNS Dialplus not responding";
- on cancel goto Return_Cancel;
-
- send %CR;
-
- Wait_Dialplus:
- if Tries = 0 goto Dialplus_Failure;
- Tries = Tries - 1;
-
- wait
- %mdm_Failure goto NO_Carrier,
- "press RETURN:" goto Send_Dialplus_Password,
- "User ID:" goto Return_Success,
- "Host Name:" goto Return_Success
- until 80;
-
- send %CR;
- goto Wait_Dialplus;
-
- Send_Dialplus_Password:
- send "UKCNS" & %CR;
- goto Wait_Dialplus;
-
- NO_Carrier:
- FailStr = "Modem connection lost";
- Dialplus_Failure:
- define %FailureMsg = FailStr;
- exit %Failure;
-
- Return_Cancel:
- exit %Cancel;
-
- Return_Success:
- send %CR;
- exit %Success;
-